Jupiter : 

ACE= 


Reference Card 


ACE Forth 


Stack 

Notation 

Cells 

Description 

c 

1 

Character (high byte ignored) 

flag 

1 

Boolean (0 = False, 1 = True) 

n 

1 

Signed number 

u 

1 

Unsigned number 

X 

1 

Non-specific single cell 

adr 

1 

Memory address 

d 

2 

Signed double number 

ud 

2 

Unsigned double number 

xd 

2 

Non-specific double cell 

f 

2 

Floating point number 


Immediate words in Green 
Immediate and compile-only words in Blue 


Stack Manipulation 


DROP 

(x-0 

Discard TOS (top of stack) 

DUP 

(x —> X x) 

Duplicate TOS 

?DUP 

(x — > X (xj) 

DUP, if non-zero 

OVER 

(X/ X2 —* X; X2 Xl) 

Copy second on stack to top 

PICK 

(x„...xi n —> x„...x/ x„) 

Copy n th cell to top 

ROLL 

(x„...xi n — / x„-i...xi x„) 

Rotate « th cell to top 

ROT 

(Xi X2 Xj — > X2 Xj X;) 

Rotate 3 rd cell to top 

>R 

(x ->) (R: -/ x) 

Move TOS to Return Stack 

R> 

(-► x) (R: x -+) 

Retrieve from Return Stack 

SWAP 

(X/ Xj —7 X 2 Xi) 

Exchange the two top cells 


Comparison 


< 

(ni n 2 

-»• flag ) 

True i f n , < n 2 

= 

( ni ni 

-»• flag ) 

True if ni = n 2 

> 

(ni n 2 

~>flag) 

True if 72/ > n 2 

0< 

(n -»• flog) 

True if n < 0 

0= 

(n flag) 

True if n = 0 

0> 

(n -> flog) 

True if n > 0 

U< 

(Ul u 2 

~*flag) 

True if Ui < u 2 

D< 

(d i d2 

~>flag) 

True if d, < d 2 

MAX 

(ni ni 

—* nj) 

Leave greater of two numbers 

MIN 

( ni n 2 

—> «o 

Leave lesser of two numbers 

Logical 



AND 

(xi x 2 - 

—7 Xj) 

Bitwise boolean AND 

OR 

(Xj Xi - 

—7 Xj) 

Bitwise boolean OR 

XOR 

(Xi Xi - 

-7 Xj) 

Bitwise boolean XOR 


Integer Arithmetic 


+ 

(«/ n 2 —> ni) 

72 j = 72/ + 72i 

- 

(n, n 2 —* n 3 ) 

72j = 77/ - 72i 

★ 

(ni >i 2 —> ni) 

72j = 77/ * 72i 

/ 

(n, n 2 ni) 

n 4 = ni / Il 2 

MOD 

(n, n 2 ni) 

Remainder of 72 // 72 _? (sign of 77 /) 

/MOD 

(n, n 2 —* Kj n 4 ) 

72 j = remainder of 77 / / 72 i 

724 = 72// 77i 

*/ 

(«/ n 2 n 3 —> n 4 ) 

724 = 77/ * 72i / 72j 

*/MOD 

(ni 77 i 77j —>• n 4 725 ) 

724 = remainder of 72 / * 72i / 77 j 

72j = 72/ * 72j / TJj 

1 + 

(77/ —»■ 77i) 

72i = 72/ + 1 

1- 

(77/ —> 77i) 

72i = 72/ - 1 

2+ 

(77/ —»• 77i) 

72i = 72/ + 2 

2- 

(77; —> 77i) 

72j= 72/ - 2 

ABS 

(77 —> 22) 

22 = |721 (absolute value) 

NEGATE 

(72/ —► 72i) 

72/ = -72/ (two's complement) 

U* 

(22 / 22i —>■ 222 /) 

ud = Ui * 22 i 

U/MOD 

(22</ 22/ — > U2 ui) 

22 i = remainder of ud / Ui 

U 3 = ud / 22/ 

D+ 

(di d 2 — 7 dj) 

dj — di + di 

DNEGATE 

(d; —> di) 

di = -di (two's complement) 


Floating Point Arithmetic 


INT (f —> n) Convert floating number to integer 

UFLOAT (; u —/ f) Convert unsigned integer to float 


F+ 

(fiß-fs) 

fl =fl +fl 

F- 

ifiß^fs) 

fl = fl -fl 

F* 


fl =fi *fl 

F/ 

(fji^fi) 

fl = fl/fl 

FNEGATE 

(fi - ß ) 

fl--fl 

Memory 


@ (odi 

^ x) 

Read x (2 bytes) from adr 

! (x ad/- —>•) 

Store x (2 bytes) to adr 

C@ (ad) 

-7- c) 

Read c (1 byte) from adr 

C ! (c adr —>) 

Store c (1 byte) to adr 

Control Structures 

IF 

( flag ->) 

Conditional structure IF..(ELSE)..TF1EN 

ELSE 

(-) 

False condition of an IF structure 

THEN 

(-) 

End of an IF conditional structure 

DO 

(72 / 72i —») 

Counted loop structure DO...LOOP 
(/7i = count Start, n, = count end) 

LOOP 

(-) 

Increment loop count, terminate if end 

+LOOP 

(72 -^) 

Add 72 to loop count, terminate if end 

I 

( ^ 72) 

Get current loop count 

I ' 

(-7 72) 

Get current loop count limit 

J 

(-7 77) 

Get outer loop count 

LEAVE 

(-) 

Force a DO...LOOP count to end 

BEGIN 

(-) 

Begin a WHILE or UNTIL loop 

UNTIL 

(flag->) 

Loop until flag = true (BEGIN..UNTIL) 

WH ILE 

(flag —0 

Exit loop when //ag = false 
(BEGIN..WFQLE..REPEAT) 

REPEAT 

(-) 

Jump back to BEGIN in a WHILE loop 

EXIT 

(-) 

Exit current word execution 

EXECUTE 

(ad/' — 7 ) 

Execute word with Compilation adr 

CALL 

(ad/' — 7 ) 

Call Z80 code (terminated with jp(iy)) 

ABORT 

(... -) 

Quit program, Clearing data stack 

QUIT 

(-) 

Quit program, not Clearing data stack 

Character Input/Output 

CR 

(-) 

Print carriage return and line feed 

ASCII text (—> c) 

ASCII code of first character in text 

EMIT 

(C-) 

Print ASCII c character 

SPACE 

(-) 

Print one space 

SPACES 

(77 —y) 

Print 72 spaces, if 72 > 0 

1 ! 

(-) 

Print a string terminated by " 

TYPE 

(adr 77 —7) Print n characters from adr 

QUERY 

(-0 

Accept entry at the input buffer 



























WORD (c —* adr ) Take text from input buffer using c 

as delimiter, leave adr of length byte 
RETYPE ( —>) Allow input buffer editing, turning 

Cursor to Q 

INKEY (—► x) Read keyboard (0 = no key pressed) 


Number Input/Output 


BASE 

(—» adr) 

1-byte variable containing 
System number base 

DECIMAL 

(-0 

Set base to decimal 


(n ->) 

Print n with one trailing space 

U. 

(u~>) 

Print unsigned with one 
trailing space 

F. 

(/■-) 

Print float with one trailing 
space 

CONVERT 

(di adri — » d 2 

adr 2 ) Convert string at adri to 

double number and add into 
di leaving result d 2 

<# 

(->) 

Initiate formatted output 

# 

(udi —* ud 2 ) 

Convert one digit from udi 
and HOLD it in the PAD 

#s 

(ud —»0 0) 

Convert and HOLD all 
remaining significant digits 

HOLD 

(c -►) 

Insert character into formatted 
string 

SIGN 

(n -») 

HOLD minus sign if /; < 0 

#> 

(ud —*■ adr n) 

Finish formatted output 
leaving address & length of 
the resulting string 

NUMBER 

(—* x (adr)) 

Get number from input buffer 


(-> n 4102) 

Converted to integer 


(~*f 4181) 

Converted to float 


(—► 0) 

Conversion failed 


Word Definition 


: word 

(-) 

Start a word definition 

r 

(-) 

Terminate a word definition 

VARIABLE name 

(*-0 

Define a variable with value x 

variable-name 

(—» adr) 

Get variable adr 

CONSTANT name 

(x -o 

Define a constant with value x 

constant-name 

(-> x) 

Get constant value 

IMMEDIATE 

(->) 

Mark newest word as immediate 

CREATE name 

(->) 

Create a dictionary entry 

DEFINER word 

(->) 

Start a defining word definition 

DOES> 

(—» adr) 

Define the action routine of a 
defining word 


COMPILER word (n —>) 
RUNS> (—> adr ) 

FIND word (—* adr) 

FORGET word (—>) 
LIST word (—►) 

ED IT word (—>) 

REDEFINE word (-►) 


Start a compiling word definition 
Defines the action routine of a 
compiling word 
Find word Compilation address 
(0 if not found) 

Clear all definitions back to word 
List word definition 
Edit word definition 
Replace previous word with the 
newest dictionary entry 


Vocabulary 


VOCABULARY nume (—>) Define a new vocabulary 


vocabulary (—>) 

CONTEXT 

CURRENT 
FORTH (—>) 

DEFINITIONS (->) 
VLIST (—>) 


Set CONTEXT = vocabulary 
adr) Get current word search 
vocabulary address (15411) 
adr) Get current word definition 
vocabulary address (15409) 
Set CONTEXT to the FORTH 
vocabulary 

Set CURRENT vocabulary to 
CONTEXT 

List dictionary to screen 


Compiler 


I 

(x 0 

Compile x into the dictionary 

c. 

(c-0 

Compile c into the dictionary 

ALLOT 

(n -^) 

Enclose n bytes in the dictionary 

LITERAL 

(x ») 

Compile x as literal 

[ 

(-0 

Enter interpret mode 

] 

(-) 

Enter compile mode 


Miscellaneous 


( 

(-0 

Start a comment, teriuinated by ) 

CLS 

(-) 

Clear screen 

AT 

(n, n 2 — ») 

Set print position to row ni and 
column n 2 

HERE 

(—» adr) 

Next available dictionary location 

PAD 

(— » adr) 

Scratch pad area address (9985) 

SLOW 

(-) 

Normal execution. Enable error checks 

FAST 

H) 

Faster execution. Disable error checks 

BEEP 

(Ul u 2 —>) 

Play tone 

Ui = 1000000 / (8 * frequency [Hz]) 
u 2 = duration [ms] 


IN 

(adr —» c) 

OUT 

(c adr —>) 

INVIS 

(-) 

VIS 

(-) 

LINE 

(-) 

PLOT 

(ni n 2 n 3 —*•) 

Tape 

Files 


Read byte from Z80 input port adr 
Write byte to Z80 output port adr 
Disable copy-up mechanism and OK 
Enable copy-up mechanism and OK 
Interpret the input buffer as FORTH 
Plot at ni (X), n 2 (Y) with mode n 3 
(0 = unplot, l=plot, 2=move, 3=change) 


LOAD name (—>) 

SAVE name (—>) 
VERIFY name (—>) 
BLOAD name (adr u —>) 
BSAVE name (adr u —») 
BVERIFY name (adr u —*■) 
if adr = 0 then use 
if u = 0 then use 


Load vocabulary from tape 
Save vocabulary to tape 
Verify vocabulary 
Load u bytes from tape to adr 
Save u bytes from adr to tape 
Verify u bytes from adr 
file value (BLOAD or BVERIFY) 
file value (BLOAD or BVERIFY) 


Error Codes 


Error 

Description 

1 

Not enough memory 

2 

Data Stack Underflow 

3 

BREAK pressed 

4 

Compile only word 

5 

Structure imbalance 

6 

Name size < 1 or > 64 

7 

PICK or ROLL Operand < 0 

8 

Floating point overflow 

9 

AT or PLOT to the input buffer 

10 

Tape error 

11 

REDEFINE or FORGET error 

12 

Incomplete definition in dictionary 

13 

Word not found or is ROM or is FORTH 

14 

Word not Listable 
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